﻿Module Module1
  Sub Main()
    Dim impTotale As Decimal
    Dim impNetto As Decimal = 1000.0
    Dim sconto As Decimal = 80.0
    Dim IVA As Decimal
    Dim aliqIva As Decimal = 20.0
    Dim abbuono As Decimal

    ' Calcolo dell'importo con IVA (previo sconto)
    IVA = (impNetto - sconto) * aliqIva / 100
    impTotale = (impNetto - sconto) + IVA

    ' Calcolo dell'importo con IVA (dopo un abbuono)
    abbuono = 8
    impTotale = impTotale - abbuono

    ' --> ALTERNATIVA CON UNA SOLA ESPRESSIONE <--
    ' ATTENZIONE:
    ' la forma alternativa deve essere eseguita separatamente
    ' perché in questo caso i valori sono già stati modificati
    ' dalle(istruzioni) precedenti
    impTotale = ((impNetto - sconto) +
      ((impNetto - sconto) * aliqIva / 100)) - abbuono

  End Sub
End Module
